Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

'Det our.1
ClrText
Locate 6,2,"DETOUR .1"
Locate 9,4,"BY"
Locate 4,6,"-Jerod Fritz-"
Locate 5,7,"(c)1996 V.1"
0M
0S
0E
Lbl D
ClrText
" "
"+-+"
"| |"
"| |"
"| |"
"+-+"
For 1K To 70
Next
Locate 1,3,"|x| READY"
For 1K To 70
Next
Locate 1,4,"|x| SET"
For 1K To 70
Next
Locate 1,5,"|x| GO!"
For 1K To 70
Next
0W
0I
0H
6C
5B
5A
0N
5R
10V
9K
7O
While 1
Q+1Q
10+SS
10+MM
If M=2500
Then 0M
E+1E
Locate 15,4,"+1 MAN"
IfEnd
IJ
HI
UN
XU
(Int 11Ran#)+5G
If G=5
Then 6G
IfEnd
GH
Locate G,7,"-"
(Int 11Ran#)+5W
If W=5
Then 6W
IfEnd
WX
Locate W,7,"-"
" "
Locate 5,7,"|"
Locate 16,7,"|"
Locate 21,1,E
If Getkey=73
Then V-1V
IfEnd
If Getkey=53
Then V+1V
IfEnd
If Getkey=64
Then Locate 8,1,"PAUSED"
While Getkey31
Locate 8,1,"PAUSED"
WhileEnd
Locate 8,1," "
IfEnd
Locate K,3,"V"
Locate V,4,"Y"
VK
If V=5 Or V=16 Or V=J Or V=N
Then Goto C
IfEnd
CD
BC
AB
RA
WhileEnd
Lbl C
0X
While X2
Locate V-X,4-X,"x"
Locate V+X,4+X,"x"
Locate V-X,4+X,"x"
Locate V+X,4-X,"x"
Locate V,4+X,"x"
Locate V,4-X,"x"
Locate V+X,4,"x"
Locate V-X,4,"x"
X+1X
WhileEnd
0X
While X2
Locate V-X,4-X," "
Locate V-X,4+X," "
Locate V+X,4-X," "
Locate V,4+X," "
Locate V,4-X," "
Locate V+X,4," "
Locate V-X,4," "
X+1X
WhileEnd
Lbl 0
ClrText
" "
" "
" "
Locate 1,1,"SCORE: "
Locate 7,1,S
E-1E
Locate 1,3,"LIVES: "
Locate 7,3,E
For 1A To 500
Next
If E=0
Then Locate 6,7,"GAME OVER"
Locate 6,6,"GAME OVER"
Locate 6,5,"GAME OVER"
Prog "Det our.1"
IfEnd
Goto D